home *** CD-ROM | disk | FTP | other *** search
/ Asim CDFS 3.0 / Asim CDFS.adf / Install-AsimCDFS < prev    next >
Encoding:
Text File  |  1996-08-29  |  62.3 KB  |  2,097 lines
  1. ;$VER: AsimCDFS Install 3.8 (29.8.96) 
  2. ;Copyright ©1993-1996 Asimware Innovations Inc.
  3.  
  4. (onerror (
  5.     (makeassign "AsimCDFSInst")
  6.     (makeassign "AsimCDFS")
  7.     (makeassign "AsimCDFS_Buffer")
  8. ))
  9.  
  10. (set #typeAMIGA 0)
  11. (set #typeCDTV 1)
  12. (set #typeCD32 2)
  13. (set #typeATAPI 3)
  14. (set #typeFLYER 4)
  15.  
  16. (set #autoMount 1)
  17. (set #CDDefault_NC "CD0" )
  18. (set #isPioneer 0)
  19. (set #isNakamichi 0)
  20. (set #isPDCD 0)
  21. (set #is4X4 0)
  22. (set #PioneerSeparate 0)
  23.  
  24. (set #wbversion (getversion "libs:version.library"))
  25. (set #wbversion (/ #wbversion 65536) )
  26.  
  27. (set #SCSIDevice "scsi.device")
  28. (set #SCSIUnit 4)
  29.  
  30. (set @default-dest "SYS:AsimCDFS")
  31. (set #echotxt "echo \"Mounting AsimCDFS...\"\n" )
  32.  
  33. (complete 0)
  34.  
  35.  
  36. ;*****
  37. ;  Please!  Use Novice!
  38. (if (> @user-level 0)
  39.     (message (cat "Installation notes\n"
  40.            "------------------\n\n"
  41.              "We have noticed problems with the Installer "
  42.              "program when using Expert or Intermediate mode.  The "
  43.              "general Novice install is recommended for most, if not "
  44.              "all situations.\n"
  45.     ))
  46. )
  47.  
  48.  
  49. ;*****
  50. ;  Need WB 2.0 or higher.
  51. (if (< #wbversion 37)
  52.     (abort "\n\nAmigaDOS 2.0 or higher is required for AsimCDFS 3.x. "
  53.              "\n\nAn upgrade will be needed for your Amiga."
  54.              "\n\nYou are currently running version " #wbversion ".")
  55. )
  56.  
  57.  
  58. ;*****
  59. ;  Lock our install disk
  60. (askdisk
  61.     (prompt "Please insert the disk labeled \"AsimCDFS_v3_Install\".")
  62.     (help    "AsimCDFS FileSystem and other utilities will be copied "
  63.             "from this disk into your system.")
  64.     (dest  "AsimCDFS_v3_Install")
  65.     (newname "AsimCDFSInst")
  66. )
  67.  
  68.  
  69.  
  70. ;*****
  71. ;  Need lots of space on sys volume for devs, l, etc.
  72. (set #installsize 0)
  73. (set #installsize (+ #installsize (getsize "AsimCDFSInst:l/AsimCDFS") ))
  74. (set #installsize (+ #installsize (getsize "AsimCDFSInst:devs/asimcdfs.devce") ))
  75. (set #installsize (+ #installsize (getsize "AsimCDFSInst:devs/asim_atapi.device") ))
  76. (set #installsize (+ #installsize (getsize "AsimCDFSInst:AsimTunes") ))
  77. (set #installsize (+ #installsize (getsize "AsimCDFSInst:DiscChanger") ))
  78. (set #installsize (+ #installsize (getsize "AsimCDFSInst:AsimCDFS_Prefs") ))
  79. (set #installsize (+ #installsize (getsize "AsimCDFSInst:SimBoot") ))
  80. (set #installsize (+ #installsize (getsize "AsimCDFSInst:PD_Format") ))
  81. (set #installsize (+ #installsize (getsize "AsimCDFSInst:CD³²_Prefs") ))
  82. (set #installsize (+ #installsize (getsize "AsimCDFSInst:CDTV_Prefs") ))
  83. (set #installsize (+ #installsize (getsize "AsimCDFSInst:DefaultCDFS_Prefs.info") ))
  84. (set #installsize (+ #installsize (getsize "AsimCDFSInst:DefaultCDTV_Prefs.info") ))
  85. (set #installsize (+ #installsize (getsize "AsimCDFSInst:Audio_Track.info") ))
  86. (set #installsize (+ #installsize (getsize "AsimCDFSInst:Audio_Disk.info") ))
  87. (set #installsize (+ #installsize (getsize "AsimCDFSInst:Audio_Drawer.info") ))
  88. (set #installsize (+ #installsize (getsize "AsimCDFSInst:PhotoCD_Disk.info") ))
  89. (set #installsize (+ #installsize (getsize "AsimCDFSInst:PhotoCD_Drawer.info") ))
  90. (set #installsize (+ #installsize (getsize "AsimCDFSInst:Raw_Sector.info") ))
  91. (set #installsize (+ #installsize (getsize "AsimCDFSInst:Raw_Disk.info") ))
  92. (set #installsize (+ #installsize (getsize "AsimCDFSInst:MPEG_Track.info") ))
  93. (set #installsize (+ #installsize (getsize "AsimCDFSInst:MPEG_Disk.info") ))
  94. (set #installsize (+ #installsize (getsize "AsimCDFSInst:DefaultCD³²_Prefs.info") ))
  95. (set #installsize (+ #installsize (getsize "AsimCDFSInst:Storage/DOSDrivers/CD0") ))
  96. (set #installsize (+ #installsize (getsize "AsimCDFSInst:Storage/DOSDrivers/CD0.info") ))
  97.  
  98. (if (< (getdiskspace "SYS:") #installsize)
  99.     (abort "\n\nApproximately " (/ #installsize 1024) "K of disk space is needed on your SYS: volume."
  100.              "\n\nYou only have " (/ (getdiskspace "SYS:") 1024)    "K free.\n\n"
  101.              "Delete or transfer some files from the SYS: volume and try again." )
  102. )
  103.  
  104.  
  105.  
  106.  
  107. (set #theirlevel @user-level )
  108. (user 2)
  109.  
  110. (complete 3)
  111. ;*****
  112. ;  Ask if CDTV (1) , CD³² (2) or Amiga (0)
  113. (set #IsAmiga
  114.     (askchoice
  115.         (prompt "\nAsimCDFS v3.6c Install\n--------------------\n\Please describe your setup:" )
  116.         (default 0 )
  117.         (choices "Amiga with SCSI CD-ROM" "CDTV/A570" "CD³²" "ATAPI CD-ROM on A4000/A1200" "NewTek Flyer with CD-ROM (unit #6) on SCSI-C" )
  118.         (help "\n\nIf AsimCDFS is being used in conjunction with a CDTV/A570 unit "
  119.                 "then note this with the CDTV/A570 selection.\n\n"
  120.                 "If AsimCDFS is being used with a CD³² unit, then note this with the CD³² selection.\n\n"
  121.                 "Otherwise, you will be installing AsimCDFS on an Amiga equipped "
  122.                 "with a SCSI or IDE controller and SCSI or ATAPI CD-ROM drive." )
  123.     )
  124. )
  125.  
  126.  
  127. (complete 6)
  128. ;*****
  129. ;  Is CDTV
  130. (if (= #IsAmiga #typeCDTV) 
  131.     ((set #CDDefault_NC "CD1" )
  132.     (set #SCSIDevice "cdtv.device")
  133.     (set #SCSIUnit 0)
  134.     )
  135. )
  136.  
  137. ;*****
  138. ;  Is CD³²
  139. (if (= #IsAmiga #typeCD32) 
  140.     ((set #CDDefault_NC "CD1" )
  141.     (set #SCSIDevice "cd.device")
  142.     (set #SCSIUnit 0)
  143.     )
  144. )
  145.  
  146. ;*****
  147. ;  Flyer
  148. (if (= #IsAmiga #typeFLYER) 
  149.     (set #CDDefault_NC "CD6" )
  150. )
  151.  
  152.  
  153. ;*****
  154. ;  If amiga, ask if using Pioneer or other
  155. (if (= #IsAmiga #typeAMIGA)
  156.     (set #isPioneer 
  157.         (askbool
  158.             (prompt "\n\n\nIs your CD-ROM drive a Pioneer DRM-60x?" )
  159.             (default 0)
  160.             (choices "Pioneer DRM-60x" "Other CD-ROM")
  161.             (help "\n\nIf you are using AsimCDFS with a Pioneer DRM-60x, indicate this "
  162.                     "in your choice.  This drive is a high-performance 6-disc minichanger and "
  163.                     "is not common."
  164.                     "\n\nOtherwise select Other CD-ROM." )
  165.         )
  166.     )
  167. )
  168.  
  169.  
  170. ;*****
  171. ;  If ispioneer==0, ask if using Nakamichi or other
  172. (if (and (= #isPioneer 0) (= #IsAmiga #typeAMIGA))
  173.     (set #isNakamichi 
  174.         (askbool
  175.             (prompt "\n\n\nIs your CD-ROM drive a Nakamichi MBR-7,\n a NEC 4xc or a NEC 2xc 7-disc CD-ROM changer?" )
  176.             (default 0)
  177.             (choices "MBR-7 / NEC 2xc, 4xc" "Other CD-ROM")
  178.             (help "\n\nIf you are using AsimCDFS with a Nakamichi MBR-7, a NEC 4xc or a NEC 2xc 7-disc CD-ROM changer, indicate this "
  179.                     "in your choice.  This drive is a high-performance 7-disc minichanger and "
  180.                     "is not common."
  181.                     "\n\nOtherwise select Other CD-ROM." )
  182.         )
  183.     )
  184. )
  185.  
  186. ;*****
  187. ;  If ispioneer==0 & isnakamichi==0, ask if using PD/CD-ROM or other
  188. (if (and (= #isNakamichi 0) (and (= #isPioneer 0) (= #IsAmiga #typeAMIGA)) )
  189.     (set #isPDCD 
  190.         (askbool
  191.             (prompt "\n\n\nIs your drive a Panasonic LF-1000 PD/CD-ROM drive?\n(combination read/write optical drive and CD-ROM drive)" )
  192.             (default 0)
  193.             (choices "LF-1000 PD/CD-ROM" "Other CD-ROM")
  194.             (help "\n\nIf you are using AsimCDFS with a Panasonic PD/CD-ROM drive, indicate this "
  195.                     "in your choice.  This drive is a combination read/write optical drive and CD-ROM drive.\n\n"
  196.                     "This drive is also bundled under 3rd party names such as Smart & Friendly and Toray.\n\n"
  197.                     "\n\nOtherwise select Other CD-ROM." )
  198.         )
  199.     )
  200. )
  201.  
  202.  
  203. (if (= #isPDCD 1)
  204.     (message (cat "Panasonic LF-1000 PD/CD-ROM users\n"
  205.                       "---------------------------------\n"
  206.         "Please ensure that your drive is set to the "
  207.         "\"Two LUN Mode\".  This is done via jumper switches "
  208.         "on the back of the drive.  Consult the manufacturer's "
  209.         "documentation for further information.\n\n"
  210.         "Also ensure that your SCSI controller is setup to "
  211.         "recognize LUNs."
  212.          )
  213.     )
  214. )
  215.  
  216.  
  217.  
  218. ;*****
  219. ;  If ispioneer==0 & isnakamichi==0, ask if using PD/CD-ROM or other
  220. (if (= #IsAmiga #typeATAPI) 
  221.     (set #is4X4 
  222.         (askbool
  223.             (prompt "\n\n\nIs your drive a NEC 4X4 4-disc ATAPI CD-ROM Changer?\n" )
  224.             (default 0)
  225.             (choices "NEC 4X4" "Other CD-ROM")
  226.             (help "\n\nIf you are using AsimCDFS with a NEC 4x4 ATAPI 4-disc CD-ROM Changer, indicate this "
  227.                     "in your choice.  This drive is a 1/2 height 5 1/2\" device.\n\n "
  228.                     "\n\nOtherwise select Other CD-ROM." )
  229.         )
  230.     )
  231. )
  232.  
  233. (complete 9)
  234. (if (or #is4X4 (or #isPioneer #isNakamichi))
  235.     (
  236.     ;*****
  237.     ;  ask if Pioneer/Nakamichi/NEC is separate or pooled
  238.     (set #PioneerSeparate
  239.             (askbool
  240.                 (prompt "\n\nDo you wish to have separate devices mounted, or would you like all discs pooled into 1 device?\n\n" )
  241.                 (default 0 )
  242.                 (choices "Separate" "Pooled")
  243.                 (help "\n\nIf you wish to have access to all discs simultaneously, then "
  244.                         "select Separate, otherwise select Pooled  --  in the latter case, "
  245.                         "you can switch between the discs with DiscChanger." )
  246.             )
  247.         )
  248.  
  249.  
  250.  
  251.     ;*****
  252.     ;  If pioneer separate, ask for base name
  253.     (if #PioneerSeparate
  254.         ((if #isPioneer
  255.             (set #ourhelp (cat "\n\nThis is the base name under which AmigaDOS will reference the "
  256.                                 "CD-ROM as.  As you are installing AsimCDFS for a Pioneer 6-disc changer "
  257.                                 ", 6 such devices named <basename>0 through <basename>5 will be mounted (ie.  CD0, CD1, ..., CD5) "
  258.                                 "\n\nThe trailing : (colon) or the 0 through 5 MUST NOT be present.") )
  259.         )
  260.     
  261.         (if #isNakamichi
  262.             (set #ourhelp (cat "\n\nThis is the base name under which AmigaDOS will reference the "
  263.                                 "CD-ROM as.  As you are installing AsimCDFS for a Nakamichi 7-disc changer "
  264.                                 ", 7 such devices named <basename>0 through <basename>6 will be mounted (ie.  CD0, CD1, ..., CD6) "
  265.                                 "\n\nThe trailing : (colon) or the 0 through 6 MUST NOT be present.") )
  266.         )
  267.  
  268.         (if #is4X4
  269.             (set #ourhelp (cat "\n\nThis is the base name under which AmigaDOS will reference the "
  270.                                 "CD-ROM as.  As you are installing AsimCDFS for a NEC 4X4 4-disc changer "
  271.                                 ", 4 such devices named <basename>0 through <basename>3 will be mounted (ie.  CD0, CD1, CD2 & CD3) "
  272.                                 "\n\nThe trailing : (colon) or the 0 through 3 MUST NOT be present.") )
  273.         )
  274.     
  275.         (set #CDDevice_NC 
  276.                 (askstring
  277.                     (prompt "\n\nWhat is the base-name for the AmigaDOS device?\n\n(The trailing colon MUST NOT be present.  See manual for explanation.)" )
  278.                     (default "CD" )
  279.                     (help #ourhelp)
  280.                 )
  281.             )
  282.         (set #CDDevice (cat #CDDevice_NC "0:")))
  283.         )
  284.     )
  285. )
  286.  
  287.  
  288. ;*****
  289. ;  If pioneer pooled or other CD-ROM, ask for CD0 device alternate
  290. (if (not #PioneerSeparate)
  291.     ((set #CDDevice_NC 
  292.         (askstring
  293.             (prompt "\n\nWhat is the name for the AmigaDOS device?\n\n(The trailing colon MUST NOT be present)" )
  294.             (default #CDDefault_NC )
  295.             (help "\n\nThis is the name under which AmigaDOS will reference the "
  296.                     "CD-ROM as.  While usually "
  297.                     #CDDefault_NC
  298.                     ", it can be any name you choose. "
  299.                     "\n\nThe trailing : (colon) MUST NOT be present." )
  300.         )
  301.     )
  302.  
  303.     (set #CDDevice (cat #CDDevice_NC ":") ))
  304. )
  305.  
  306.  
  307. ;*****
  308. ;  Copy over asim_atapi.device
  309. (if (= #IsAmiga #typeATAPI)
  310.     ((user #theirlevel)
  311.  
  312.     (copyfiles
  313.         (prompt "\n\nCopying asim_atapi.device ATAPI CD-ROM driver\n" )
  314.         (source "AsimCDFSInst:devs/asim_atapi.device")
  315.         (dest "DEVS:")
  316.         (confirm)
  317.         (help "\n\nThis will copy the asim_atapi.device ATAPI CD-ROM driver file to your devs: directory\n")
  318.     )
  319.  
  320.     (user 2)
  321.     )
  322. )
  323.  
  324. ;*****
  325. ;  Ask to run SCSI Inquire
  326. (if (or (= #IsAmiga #typeAMIGA) (= #IsAmiga #typeATAPI))
  327.     (set #useInquire
  328.         (askbool
  329.             (prompt "\n\nWould you like to use the SCSI Inquire utility to locate your CD-ROM drive?" )
  330.             (default 1 )
  331.             (help "\n\nThe SCSI Inquire utility will scan your system for suitable SCSI "
  332.                     "or ATAPI devices and display a listing of all units connected to the device.  "
  333.                     "Your CD-ROM drive must be powered-on and correctly connected "
  334.                     "for it to be acknowledged by this utility.  Consult the SCSI Inquire "
  335.                     "chapter for more information." )
  336.         )
  337.     )
  338. )
  339.  
  340.  
  341. ;*****
  342. ;  Run SCSI Inquire
  343. (if #useInquire
  344.     (
  345.     (if (= #IsAmiga #typeATAPI)
  346.         (run "AsimCDFS_v3_Install:SCSI_Inquire force_atapi")    
  347.     )
  348.  
  349.     (if (= #IsAmiga #typeAMIGA)
  350.         (run "AsimCDFS_v3_Install:SCSI_Inquire")    
  351.     )
  352.     
  353.     (if (exists "ENV:SCSI_Device")
  354.         ((set #SCSIDevice (getenv "SCSI_Device"))
  355.         (set #SCSIUnit (+ (getenv "SCSI_Unit")))
  356.         ))
  357.     )
  358. )
  359.  
  360.  
  361.  
  362. ;*****
  363. ;  The LF-1000 PD/CD-ROM drive uses LUN #1 for the CD-ROM operation
  364. (if (= #isPDCD 1)
  365.     (set #SCSIUnit (+ 10 #SCSIUnit))
  366. )
  367.  
  368.  
  369. (complete 12)
  370. (if (= #IsAmiga #typeAMIGA)
  371.     ;*****
  372.     ;  Ask for device name
  373.     ((set #SCSIDevice 
  374.         (askstring
  375.             (prompt "\n\nWhat is the name of your SCSI or ATAPI device?" )
  376.             (default #SCSIDevice )
  377.             (help "\n\nThis is the name of the device driver for your particular "
  378.                     "SCSI card.  For example, the Commodore 2091/590/Amiga3000 has "
  379.                     "a name of \"scsi.device\" while our ATAPI driver has a name of \"asim_ide.device\".\n\n"
  380.                     "If you successfully ran the SCSI Inquire utility, this question will default to the correct unit number. "
  381.                     "Otherwise, consult either the AsimCDFS User's Guide or contact the controller card manufacturer." )
  382.         )
  383.     )
  384.     
  385.     (complete 15)
  386.     ;****
  387.     ;  Ask for unit number
  388.     (set #SCSIUnit 
  389.         (asknumber
  390.             (prompt "\n\nWhat is the unit number of your CD-ROM drive?" )
  391.             (default #SCSIUnit )
  392.             (help "\n\nThis is the unit # of the CD-ROM drive.  This is usually a "
  393.                     "numerical value between 0j and 6 for SCSI units and between 0 and 1 for ATAPI units.\n\n"
  394.                     "If you successfully ran the SCSI Inquire utility, this question will default to the correct unit number.  "
  395.                     "Otherwise, consult the CD-ROM drive documentation for instructions on "
  396.                     "determining the unit #." )
  397.         )
  398.     ))
  399. )
  400.  
  401.  
  402. ;*****
  403. ;  Ask for automount?
  404. (complete 18)
  405. (if (not (= #IsAmiga #typeFLYER))
  406.     (set #autoMount
  407.         (askbool
  408.             (prompt "\n\nWould you like the CD-ROM drive automatically mounted upon bootup?" )
  409.             (help "\n\nIf you would like, the appropriate commands will be added to your user-startup file to automatically mount AsimCDFS.\n")
  410.             (default 1)
  411.         )
  412.     )
  413. )
  414.  
  415. (if (= #IsAmiga #typeFLYER)
  416.     ((set #autoMount 0)
  417.     (set #SCSIUnit 206)
  418.     (set #SCSIDevice "flyerscsi.device"))
  419. )
  420.  
  421.  
  422. (set #mountDirectory "sys:storage/DOSDrivers/")
  423.  
  424.  
  425.  
  426. ;*****
  427. ;  Ask for AsimCDFS:
  428. (set #tunesDir
  429.     (askdir
  430.         (prompt "Specify the directory in which the AsimCDFS support programs will be placed:" )
  431.         (help "AsimCDFS contains a number of support programs.  This directory will specifiy where the programs will be placed.  If you need, create a separate directory for the files.")
  432.         (default @default-dest)
  433.         (newpath)
  434.     )
  435. )
  436.  
  437. (if (not (exists #tunesDir (noreq)))
  438.     (makedir #tunesDir
  439.         (prompt "Creating the AsimCDFS: directory...")
  440.         (help "This will create the specified directory for the support programs.")
  441.         (infos)
  442.         )
  443. )
  444. (makeassign "AsimCDFS" #tunesDir)
  445.  
  446.  
  447. ;*****
  448. ;  Ask for AsimCDFS_Buffer:
  449. (set #bufferDir "Work:AsimCDFS_Buffer")
  450. (run "AsimCDFS_v3_Install:c/MostFree")    
  451.     
  452. (if (exists "ENV:MostFree")
  453.     (set #bufferDir (cat (getenv "MostFree") "AsimCDFS_Buffer"))
  454. )
  455.  
  456. (if (= #IsAmiga #typeFLYER)
  457.     (if (exists "WORK:" (noreq))
  458.         (set #bufferDir "WORK:AsimCDFS_Buffer")
  459.         (set #bufferDir "SYS:AsimCDFS_Buffer")
  460.     )
  461.     
  462. )
  463.  
  464.  
  465. (set #bufferDir
  466.     (askdir
  467.         (prompt "Specify the directory which can be used for buffering AsimCDFS files:" )
  468.         (help "AsimCDFS will require a directory in which it will buffer "
  469.                 "various files, including PhotoCD thumbnail icons, snapshot icon files "
  470.                 "and audio library files.  As the number of files in this directory "
  471.                 "may grow as your CD-ROM collection expands, it is "
  472.                 "advisable to put this directory on a large hard drive partition." )
  473.         (default #bufferDir )
  474.         (newpath)
  475.     )
  476. )
  477.  
  478. (if (not (exists #bufferDir (noreq)))
  479.     (makedir #bufferDir
  480.         (prompt "Creating the AsimCDFS_Buffer: directory...")
  481.         (help "This will create the specified directory for the buffered files.")
  482.         (infos)
  483.         )
  484. )
  485. (makeassign "AsimCDFS_Buffer" #bufferDir)
  486. (user #theirlevel)
  487.  
  488.  
  489. (set n 0)
  490. (while
  491.     (set #buffsubdir 
  492.         (select n "AsimCDFS_Buffer:PhotoCDIcon_Buffer"
  493.                      "AsimCDFS_Buffer:Audio"
  494.                      "AsimCDFS_Buffer:Raw"
  495.                      "AsimCDFS_Buffer:Marks"
  496.                      "AsimCDFS_Buffer:NonVolatile"
  497.                    ""
  498.             )
  499.         )
  500.     (
  501.     (if (not (exists #buffsubdir (noreq)))
  502.         (makedir #buffsubdir
  503.             (prompt "Creating the " #buffsubdir " directory...")
  504.             (help "This will create the specified directory for the buffered files.")
  505.             (infos)
  506.             )
  507.     )
  508.  
  509.     (set n (+ n 1))
  510.     )
  511. )
  512.  
  513.  
  514. (copyfiles
  515.     (prompt "\n\nCopying Corel_Directory index file to the "
  516.         "AsimCDFS_Buffer: directory.\n" )
  517.     (source "AsimCDFSInst:Corel_Directory")
  518.     (dest "AsimCDFS_Buffer:")
  519.     (confirm)
  520.     (help "\n\nThis will copy an index file containing proper disc "
  521.         "names for the Corel ProPhoto library (Volumes 1 and 2).")
  522. )
  523.  
  524.  
  525.  
  526. (if (not (exists "C:ViewTek" (noreq)))
  527.     ((copyfiles
  528.         (prompt "\n\nCopying the public domain program ViewTek by "
  529.             "Thomas Krehbiel to your C: directory.")
  530.         (source "AsimCDFSInst:C/VT")
  531.         (dest "C:")
  532.         (newname "ViewTek")
  533.         (help "\n\nThis will copy over the public domain viewing "
  534.             "program ViewTek to your C: directory where it will be "
  535.             "automatically used when you double-click on PhotoCD and "
  536.             "Corel ProPhoto thumbnail icons.")
  537.         (confirm)
  538.     ))
  539. )
  540.  
  541.  
  542.  
  543. ;*****
  544. ;  delete obsolete files
  545. ;  Delete old AsimPhoto, if present in AsimCDFS dir.
  546. ;  all other files are either the user's or will be over written
  547. (if (exists "AsimCDFS:AsimPhoto")
  548.     ((delete "AsimCDFS:AsimPhoto"
  549.         (prompt "\n\Deleting obsolete AsimPhoto.\n" )
  550.         (confirm)
  551.         (help "\n\nThis will delete the old AsimPhoto program, which is "
  552.             "no longer required for AsimCDFS v3.x\n" )
  553.         )
  554.     )
  555. )        
  556.  
  557.  
  558. (if (exists "AsimCDFS:AsimPhoto.info")
  559.     ((delete "AsimCDFS:AsimPhoto.info"
  560.         (prompt "\n\Deleting obsolete AsimPhoto.info.\n" )
  561.         (confirm)
  562.         (help "\n\nThis will delete the old AsimPhoto icon, which is "
  563.             "no longer required for AsimCDFS v3.x\n" )
  564.         )
  565.     )
  566. )        
  567.  
  568. (if (exists "ENVARC:AsimCDFS/Photo.info")
  569.     ((delete "ENVARC:AsimCDFS/Photo.info"
  570.         (prompt "\n\Deleting obsolete default Photo icon.\n" )
  571.         (confirm)
  572.         (help "\n\nThis will delete the old default Photo icon, which is "
  573.             "no longer required for AsimCDFS v3.x\n" )
  574.         )
  575.     )
  576. )        
  577.  
  578.  
  579. (if (exists "ENVARC:AsimCDFS/DiscChanger.prefs")
  580.     ((delete "ENVARC:AsimCDFS/DiscChanger.prefs"
  581.         (prompt "\n\Deleting obsolete DiscChanger preferences file.\n" )
  582.         (confirm)
  583.         (help "\n\nThis will delete the old DiscChanger preferences file, which is "
  584.             "no longer required for AsimCDFS v3.x\n" )
  585.         )
  586.     )
  587. )        
  588.  
  589. (if (exists "ENVARC:AsimCDFS/AsimTunes.prefs")
  590.     ((delete "ENVARC:AsimCDFS/AsimTunes.prefs"
  591.         (prompt "\n\Deleting obsolete AsimTunes preferences file.\n" )
  592.         (confirm)
  593.         (help "\n\nThis will delete the old AsimTunes preferences file, which is "
  594.             "no longer required for AsimCDFS v3.x\n" )
  595.         )
  596.     )
  597. )        
  598.  
  599.  
  600. (if (exists "ENVARC:AsimCDFS/AsimPhoto.prefs")
  601.     ((delete "ENVARC:AsimCDFS/AsimPhoto.prefs"
  602.         (prompt "\n\Deleting obsolete AsimPhoto preferences file.\n" )
  603.         (confirm)
  604.         (help "\n\nThis will delete the old AsimPhoto preferences file, which is "
  605.             "no longer required for AsimCDFS v3.x\n" )
  606.         )
  607.     )
  608. )        
  609.  
  610.  
  611.  
  612. ;*****
  613. ;  l:AsimCDFS
  614. (complete 21)
  615. (protect "l:AsimCDFS" "rwed" )
  616. (copyfiles
  617.     (prompt "\n\nCopying AsimCDFS FileSystem to the l: directory.\n" )
  618.     (source "AsimCDFSInst:l/AsimCDFS")
  619.     (dest "l:")
  620.     (confirm)
  621.     (help "\n\nThis will copy over the AsimCDFS FileSystem program to your "
  622.         "l: directory\n\nThis is an essential step in the installation "
  623.         "process.\n" )
  624. )
  625.  
  626.  
  627.  
  628. ;*****
  629. ;  devs:asimcdfs.device
  630. (complete 25)
  631. (protect "devs:asimcdfs.device" "rwed" )
  632. (copyfiles
  633.     (prompt "\n\nCopying asimcdfs.device to the devs: directory.\n" )
  634.     (source "AsimCDFSInst:devs/asimcdfs.device")
  635.     (dest "devs:")
  636.     (confirm)
  637.     (help "\n\nThis will copy over the asimcdfs.device program to your "
  638.         "devs: directory\n\nThis is an essential step in the installation "
  639.         "process.\n" )
  640. )
  641.  
  642.  
  643.  
  644.  
  645.  
  646. ;*****
  647. ;  Create PD0 mountlist for PD/CD-ROM drive
  648. ;(if (= #isPDCD 1)
  649. ;    (
  650. ;    )
  651. ;)
  652.  
  653.  
  654.  
  655. (if (and (= #IsAmiga #typeATAPI) (< #wbversion 39) )
  656.     (abort "\n\nAmigaDOS 3.0 or higher is required for the asim_atapi.device.  "
  657.              "\n\nIf you are currently using an Amiga 1200 or Amiga 4000, check "
  658.              "your libs:version.library file.\n\n"
  659.              "\n\nYour libs:version.library file currently reports version " #wbversion ".")
  660. )
  661.  
  662.  
  663. ;*****
  664. ;  Create mountlists and alter user-startup
  665. ;
  666. ;  no need to worry about NEC 4X4 as the atapi.device requires WB3.0 or above
  667. ;  (at this time!)
  668. ;*****
  669. (if (= #wbversion 37) 
  670.     ((if #PioneerSeparate
  671.         ((set #startupCommand1 (cat "mount >NIL: " #CDDevice_NC "0: from devs:MountList." #CDDevice_NC "\n") )
  672.         (set #startupCommand2 (cat "mount >NIL: " #CDDevice_NC "1: from devs:MountList." #CDDevice_NC "\n") )
  673.         (set #startupCommand3 (cat "mount >NIL: " #CDDevice_NC "2: from devs:MountList." #CDDevice_NC "\n") )
  674.         (set #startupCommand4 (cat "mount >NIL: " #CDDevice_NC "3: from devs:MountList." #CDDevice_NC "\n") )
  675.         (set #startupCommand5 (cat "mount >NIL: " #CDDevice_NC "4: from devs:MountList." #CDDevice_NC "\n") )
  676.         (if #isPioneer
  677.             (set #startupCommand6 (cat "mount >NIL: " #CDDevice_NC "5: from devs:MountList." #CDDevice_NC "\n") )
  678.         )
  679.         (if #isNakamichi
  680.             (set #startupCommand6 (cat "mount >NIL: " #CDDevice_NC "5: from devs:MountList." #CDDevice_NC "\n" "mount >NIL: " #CDDevice_NC "6: from devs:MountList." #CDDevice_NC "\n") )
  681.         )
  682.             
  683.         
  684.         (if #autoMount
  685.             ((protect "S:User-Startup" "rwed" )
  686.             (protect "S:Startup-Sequence" "rwed" )
  687.             
  688.             (startup "AsimCDFS"
  689.                 (command #echotxt)
  690.                 (command (cat "assign AsimCDFS: \"" #tunesDir "\"\n"))
  691.                 (command (cat "assign AsimCDFS_Buffer: \"" #bufferDir "\"\n"))
  692.                 (command #startupCommand1 )
  693.                 (command #startupCommand2 )
  694.                 (command #startupCommand3 )
  695.                 (command #startupCommand4 )
  696.                 (command #startupCommand5 )
  697.                 (command #startupCommand6 )
  698.                 (prompt "Inserting MOUNT commands into the startup-sequence")
  699.                 (help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" is being inserted into your "
  700.                         "\"S:Startup-Sequence\" or \"S:User-Startup\" file to "
  701.                         "automatically start AsimCDFS upon bootup." )
  702.             ))
  703.         ))
  704.     )
  705.  
  706.     (if (not #PioneerSeparate)
  707.         ((set #startupCommand (cat "mount >NIL: " #CDDevice " from devs:MountList." #CDDevice_NC "\n") )
  708.         (if #autoMount
  709.             ((protect "S:User-Startup" "rwed" )
  710.             (protect "S:Startup-Sequence" "rwed" )
  711.             
  712.             (startup "AsimCDFS"
  713.                 (command #echotxt)
  714.                 (command (cat "assign AsimCDFS: \"" #tunesDir "\"\n"))
  715.                 (command (cat "assign AsimCDFS_Buffer: \"" #bufferDir "\"\n"))
  716.                 (command #startupCommand )
  717.                 (prompt "Inserting MOUNT command into the startup-sequence")
  718.                 (help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" is being inserted into your "
  719.                         "\"S:Startup-Sequence\" or \"S:User-Startup\" file to "
  720.                         "automatically start AsimCDFS upon bootup." )
  721.             ))
  722.         ))
  723.     )
  724.     
  725.     (if (not #autoMount)
  726.         ((protect "S:User-Startup" "rwed" )
  727.         (protect "S:Startup-Sequence" "rwed" )
  728.         
  729.         (startup "AsimCDFS"
  730.             (command (cat "assign AsimCDFS: \"" #tunesDir "\"\n"))
  731.             (command (cat "assign AsimCDFS_Buffer: \"" #bufferDir "\"\n"))
  732.             (prompt "Inserting MOUNT command into the startup-sequence")
  733.             (help "\n\nThe command \"MOUNT " #CDDevice " FROM DEVS:MOUNTLIST." #CDDevice_NC "\" is being inserted into your "
  734.                     "\"S:Startup-Sequence\" or \"S:User-Startup\" file to "
  735.                     "automatically start AsimCDFS upon bootup." )
  736.         ))
  737.     )
  738.  
  739.     (protect (cat "devs:MountList." #CDDevice_NC) "rwed" )
  740.  
  741.     (if #isPioneer 
  742.         (set #LastLine "\n")
  743.     )
  744.  
  745.     (if #isNakamichi 
  746.         (set #LastLine (cat #CDDevice_NC "6:\n"
  747.                             "    Device         = " #SCSIDevice "\n"
  748.                             "    Unit           = 6" #SCSIUnit "\n"
  749.                             "    Buffers        = 0\n"
  750.                             "    BufMemType     = 5\n"
  751.                             "    Mask           = 0xffffffe\n"
  752.                             "    Flags          = 0\n"
  753.                             "    FileSystem     = l:AsimCDFS\n"
  754.                             "    DosType        = 0x662dabac\n"
  755.                             "    GlobVec        = -1\n"
  756.                             "    Mount          = 1\n"
  757.                             "    Reserved       = 0\n"
  758.                             "    LowCyl         = 0\n"
  759.                             "    HighCyl        = 999\n"
  760.                             "    Surfaces       = 1\n"
  761.                             "    BlocksPerTrack = 32\n"
  762.                             "    Priority       = 10\n"
  763.                             "    StackSize      = 5000\n"
  764.                             "#\n\n")
  765.             )
  766.         )
  767.                             
  768.  
  769.  
  770.     (if #PioneerSeparate
  771.         (textfile
  772.             (dest (cat "devs:MountList." #CDDevice_NC) )
  773.             (append "/************************************************************************/\n"
  774.                       "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  775.                       "/************************************************************************/\n")
  776.             (append #CDDevice_NC "0:\n")
  777.             (append "    Device         = " #SCSIDevice "\n" )
  778.             (append "    Unit           = 0" #SCSIUnit "\n" )
  779.             (append "    Buffers        = 0\n")
  780.             (append "    BufMemType     = 5\n" )
  781.             (append "    Mask           = 0xffffffe\n" )
  782.             (append "    Flags          = 0\n" )
  783.             (append "    FileSystem     = l:AsimCDFS\n")
  784.             (append "    DosType        = 0x662dabac\n")
  785.             (append "    GlobVec        = -1\n")
  786.             (append "    Mount          = 1\n")
  787.             (append "    Reserved       = 0\n")
  788.             (append "    LowCyl         = 0\n")
  789.             (append "    HighCyl        = 999\n")
  790.             (append "    Surfaces       = 1\n")
  791.             (append "    BlocksPerTrack = 32\n")
  792.             (append "    Priority       = 10\n")
  793.             (append "    StackSize      = 5000\n")
  794.             (append "#\n\n")
  795.             (append #CDDevice_NC "1:\n")
  796.             (append "    Device         = " #SCSIDevice "\n" )
  797.             (append "    Unit           = 1" #SCSIUnit "\n" )
  798.             (append "    Buffers        = 0\n")
  799.             (append "    BufMemType     = 5\n" )
  800.             (append "    Mask           = 0xffffffe\n" )
  801.             (append "    Flags          = 0\n" )
  802.             (append "    FileSystem     = l:AsimCDFS\n")
  803.             (append "    DosType        = 0x662dabac\n")
  804.             (append "    GlobVec        = -1\n")
  805.             (append "    Mount          = 1\n")
  806.             (append "    Reserved       = 0\n")
  807.             (append "    LowCyl         = 0\n")
  808.             (append "    HighCyl        = 999\n")
  809.             (append "    Surfaces       = 1\n")
  810.             (append "    BlocksPerTrack = 32\n")
  811.             (append "    Priority       = 10\n")
  812.             (append "    StackSize      = 5000\n")
  813.             (append "#\n\n")
  814.             (append #CDDevice_NC "2:\n")
  815.             (append "    Device         = " #SCSIDevice "\n" )
  816.             (append "    Unit           = 2" #SCSIUnit "\n" )
  817.             (append "    Buffers        = 0\n")
  818.             (append "    BufMemType     = 5\n" )
  819.             (append "    Mask           = 0xffffffe\n" )
  820.             (append "    Flags          = 0\n" )
  821.             (append "    FileSystem     = l:AsimCDFS\n")
  822.             (append "    DosType        = 0x662dabac\n")
  823.             (append "    GlobVec        = -1\n")
  824.             (append "    Mount          = 1\n")
  825.             (append "    Reserved       = 0\n")
  826.             (append "    LowCyl         = 0\n")
  827.             (append "    HighCyl        = 999\n")
  828.             (append "    Surfaces       = 1\n")
  829.             (append "    BlocksPerTrack = 32\n")
  830.             (append "    Priority       = 10\n")
  831.             (append "    StackSize      = 5000\n")
  832.             (append "#\n\n")
  833.             (append #CDDevice_NC "3:\n")
  834.             (append "    Device         = " #SCSIDevice "\n" )
  835.             (append "    Unit           = 3" #SCSIUnit "\n" )
  836.             (append "    Buffers        = 0\n")
  837.             (append "    BufMemType     = 5\n" )
  838.             (append "    Mask           = 0xffffffe\n" )
  839.             (append "    Flags          = 0\n" )
  840.             (append "    FileSystem     = l:AsimCDFS\n")
  841.             (append "    DosType        = 0x662dabac\n")
  842.             (append "    GlobVec        = -1\n")
  843.             (append "    Mount          = 1\n")
  844.             (append "    Reserved       = 0\n")
  845.             (append "    LowCyl         = 0\n")
  846.             (append "    HighCyl        = 999\n")
  847.             (append "    Surfaces       = 1\n")
  848.             (append "    BlocksPerTrack = 32\n")
  849.             (append "    Priority       = 10\n")
  850.             (append "    StackSize      = 5000\n")
  851.             (append "#\n\n")
  852.             (append #CDDevice_NC "4:\n")
  853.             (append "    Device         = " #SCSIDevice "\n" )
  854.             (append "    Unit           = 4" #SCSIUnit "\n" )
  855.             (append "    Buffers        = 0\n")
  856.             (append "    BufMemType     = 5\n" )
  857.             (append "    Mask           = 0xffffffe\n" )
  858.             (append "    Flags          = 0\n" )
  859.             (append "    FileSystem     = l:AsimCDFS\n")
  860.             (append "    DosType        = 0x662dabac\n")
  861.             (append "    GlobVec        = -1\n")
  862.             (append "    Mount          = 1\n")
  863.             (append "    Reserved       = 0\n")
  864.             (append "    LowCyl         = 0\n")
  865.             (append "    HighCyl        = 999\n")
  866.             (append "    Surfaces       = 1\n")
  867.             (append "    BlocksPerTrack = 32\n")
  868.             (append "    Priority       = 10\n")
  869.             (append "    StackSize      = 5000\n")
  870.             (append "#\n\n")
  871.             (append #CDDevice_NC "5:\n")
  872.             (append "    Device         = " #SCSIDevice "\n" )
  873.             (append "    Unit           = 5" #SCSIUnit "\n" )
  874.             (append "    Buffers        = 0\n")
  875.             (append "    BufMemType     = 5\n" )
  876.             (append "    Mask           = 0xffffffe\n" )
  877.             (append "    Flags          = 0\n" )
  878.             (append "    FileSystem     = l:AsimCDFS\n")
  879.             (append "    DosType        = 0x662dabac\n")
  880.             (append "    GlobVec        = -1\n")
  881.             (append "    Mount          = 1\n")
  882.             (append "    Reserved       = 0\n")
  883.             (append "    LowCyl         = 0\n")
  884.             (append "    HighCyl        = 999\n")
  885.             (append "    Surfaces       = 1\n")
  886.             (append "    BlocksPerTrack = 32\n")
  887.             (append "    Priority       = 10\n")
  888.             (append "    StackSize      = 5000\n")
  889.             (append "#\n\n")
  890.             (append #LastLine )
  891.         )
  892.     )
  893.  
  894.  
  895.  
  896.     (if (not #PioneerSeparate)
  897.         (textfile
  898.             (dest (cat "devs:MountList." #CDDevice_NC) )
  899.             (append "/************************************************************************/\n"
  900.                       "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  901.                       "/************************************************************************/\n")
  902.             (append #CDDevice "\n")
  903.             (append "    Device         = " #SCSIDevice "\n" )
  904.             (append "    Unit           = " #SCSIUnit "\n" )
  905.             (append "    Buffers        = 0\n")
  906.             (append "    BufMemType     = 5\n" )
  907.             (append "    Mask           = 0xffffffe\n" )
  908.             (append "    Flags          = 0\n" )
  909.             (append "    FileSystem     = l:AsimCDFS\n")
  910.             (append "    DosType        = 0x662dabac\n")
  911.             (append "    GlobVec        = -1\n")
  912.             (append "    Mount          = " #autoMount "\n")
  913.             (append "    Reserved       = 0\n")
  914.             (append "    LowCyl         = 0\n")
  915.             (append "    HighCyl        = 999\n")
  916.             (append "    Surfaces       = 1\n")
  917.             (append "    BlocksPerTrack = 32\n")
  918.             (append "    Priority       = 10\n")
  919.             (append "    StackSize      = 5000\n")
  920.             (append "#\n")
  921.         )
  922.     ))
  923. )
  924.  
  925.  
  926.  
  927. (if (> #wbversion 37) 
  928.     ((if (not #PioneerSeparate)
  929.         ((textfile
  930.             (dest (cat #mountDirectory #CDDevice_NC) )
  931.             (append "/************************************************************************/\n"
  932.                       "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  933.                       "/************************************************************************/\n")
  934.             (append "    Device         = " #SCSIDevice "\n" )
  935.             (append "    Unit           = " #SCSIUnit "\n" )
  936.             (append "    Buffers        = 0\n")
  937.             (append "    BufMemType     = 5\n" )
  938.             (append "    Mask           = 0xffffffe\n" )
  939.             (append "    Flags          = 0\n" )
  940.             (append "    FileSystem     = l:AsimCDFS\n")
  941.             (append "    DosType        = 0x662dabac\n")
  942.             (append "    GlobVec        = -1\n")
  943.             (append "    Reserved       = 0\n")
  944.             (append "    LowCyl         = 0\n")
  945.             (append "    HighCyl        = 999\n")
  946.             (append "    Mount          = 1\n")
  947.             (append "    Surfaces       = 1\n")
  948.             (append "    BlocksPerTrack = 32\n")
  949.             (append "    Priority       = 10\n")
  950.             (append "    StackSize      = 5000\n")
  951.         )
  952.  
  953.         (copyfiles
  954.                 (prompt "\n\nCopying Mountlist icon")
  955.                 (source "AsimCDFSInst:Storage/DOSDrivers/CD0.info")
  956.                 (dest #mountDirectory)
  957.                 (newname (cat #CDDevice_NC ".info"))
  958.                 (help "\n\nThis will copy over an icon for the mountlist file.")
  959.                 (confirm)
  960.             )        
  961.  
  962.     ))
  963.  
  964.  
  965.     (if #PioneerSeparate
  966.         ((textfile
  967.             (dest (cat #mountDirectory #CDDevice_NC "0") )
  968.             (append "/************************************************************************/\n"
  969.                       "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  970.                       "/************************************************************************/\n")
  971.             (append "    Device         = " #SCSIDevice "\n" )
  972.             (append "    Unit           = 0" #SCSIUnit "\n" )
  973.             (append "    Buffers        = 0\n")
  974.             (append "    BufMemType     = 5\n" )
  975.             (append "    Mask           = 0xffffffe\n" )
  976.             (append "    Flags          = 0\n" )
  977.             (append "    FileSystem     = l:AsimCDFS\n")
  978.             (append "    DosType        = 0x662dabac\n")
  979.             (append "    GlobVec        = -1\n")
  980.             (append "    Reserved       = 0\n")
  981.             (append "    LowCyl         = 0\n")
  982.             (append "    HighCyl        = 999\n")
  983.             (append "    Mount          = 1\n")
  984.             (append "    Surfaces       = 1\n")
  985.             (append "    BlocksPerTrack = 32\n")
  986.             (append "    Priority       = 10\n")
  987.             (append "    StackSize      = 5000\n")
  988.         )
  989.  
  990.         (copyfiles
  991.                 (prompt "\n\nCopying Mountlist icon")
  992.                 (source "AsimCDFSInst:Storage/DOSDrivers/CD0.info")
  993.                 (dest #mountDirectory)
  994.                 (newname (cat #CDDevice_NC "0.info"))
  995.                 (help "\n\nThis will copy over an icon for the mountlist file.")
  996.                 (confirm)
  997.             )
  998.         
  999.         (textfile
  1000.             (dest (cat #mountDirectory #CDDevice_NC "1") )
  1001.             (append "/************************************************************************/\n"
  1002.                       "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  1003.                       "/************************************************************************/\n")
  1004.             (append "    Device         = " #SCSIDevice "\n" )
  1005.             (append "    Unit           = 1" #SCSIUnit "\n" )
  1006.             (append "    Buffers        = 0\n")
  1007.             (append "    BufMemType     = 5\n" )
  1008.             (append "    Mask           = 0xffffffe\n" )
  1009.             (append "    Flags          = 0\n" )
  1010.             (append "    FileSystem     = l:AsimCDFS\n")
  1011.             (append "    DosType        = 0x662dabac\n")
  1012.             (append "    GlobVec        = -1\n")
  1013.             (append "    Reserved       = 0\n")
  1014.             (append "    LowCyl         = 0\n")
  1015.             (append "    HighCyl        = 999\n")
  1016.             (append "    Mount          = 1\n")
  1017.             (append "    Surfaces       = 1\n")
  1018.             (append "    BlocksPerTrack = 32\n")
  1019.             (append "    Priority       = 10\n")
  1020.             (append "    StackSize      = 5000\n")
  1021.         )
  1022.  
  1023.         (copyfiles
  1024.                 (prompt "\n\nCopying Mountlist icon")
  1025.                 (source "AsimCDFSInst:Storage/DOSDrivers/CD0.info")
  1026.                 (dest #mountDirectory)
  1027.                 (newname (cat #CDDevice_NC "1.info"))
  1028.                 (help "\n\nThis will copy over an icon for the mountlist file.")
  1029.                 (confirm)
  1030.             )
  1031.  
  1032.         (textfile
  1033.             (dest (cat #mountDirectory #CDDevice_NC "2") )
  1034.             (append "/************************************************************************/\n"
  1035.                       "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  1036.                       "/************************************************************************/\n")
  1037.             (append "    Device         = " #SCSIDevice "\n" )
  1038.             (append "    Unit           = 2" #SCSIUnit "\n" )
  1039.             (append "    Buffers        = 0\n")
  1040.             (append "    BufMemType     = 5\n" )
  1041.             (append "    Mask           = 0xffffffe\n" )
  1042.             (append "    Flags          = 0\n" )
  1043.             (append "    FileSystem     = l:AsimCDFS\n")
  1044.             (append "    DosType        = 0x662dabac\n")
  1045.             (append "    GlobVec        = -1\n")
  1046.             (append "    Reserved       = 0\n")
  1047.             (append "    LowCyl         = 0\n")
  1048.             (append "    HighCyl        = 999\n")
  1049.             (append "    Mount          = 1\n")
  1050.             (append "    Surfaces       = 1\n")
  1051.             (append "    BlocksPerTrack = 32\n")
  1052.             (append "    Priority       = 10\n")
  1053.             (append "    StackSize      = 5000\n")
  1054.         )
  1055.         
  1056.  
  1057.         (copyfiles
  1058.                 (prompt "\n\nCopying Mountlist icon")
  1059.                 (source "AsimCDFSInst:Storage/DOSDrivers/CD0.info")
  1060.                 (dest #mountDirectory)
  1061.                 (newname (cat #CDDevice_NC "2.info"))
  1062.                 (help "\n\nThis will copy over an icon for the mountlist file.")
  1063.                 (confirm)
  1064.             )
  1065.  
  1066.         (textfile
  1067.             (dest (cat #mountDirectory #CDDevice_NC "3") )
  1068.             (append "/************************************************************************/\n"
  1069.                       "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  1070.                       "/************************************************************************/\n")
  1071.             (append "    Device         = " #SCSIDevice "\n" )
  1072.             (append "    Unit           = 3" #SCSIUnit "\n" )
  1073.             (append "    Buffers        = 0\n")
  1074.             (append "    BufMemType     = 5\n" )
  1075.             (append "    Mask           = 0xffffffe\n" )
  1076.             (append "    Flags          = 0\n" )
  1077.             (append "    FileSystem     = l:AsimCDFS\n")
  1078.             (append "    DosType        = 0x662dabac\n")
  1079.             (append "    GlobVec        = -1\n")
  1080.             (append "    Reserved       = 0\n")
  1081.             (append "    LowCyl         = 0\n")
  1082.             (append "    HighCyl        = 999\n")
  1083.             (append "    Mount          = 1\n")
  1084.             (append "    Surfaces       = 1\n")
  1085.             (append "    BlocksPerTrack = 32\n")
  1086.             (append "    Priority       = 10\n")
  1087.             (append "    StackSize      = 5000\n")
  1088.         )
  1089.         
  1090.         (copyfiles
  1091.                 (prompt "\n\nCopying Mountlist icon")
  1092.                 (source "AsimCDFSInst:Storage/DOSDrivers/CD0.info")
  1093.                 (dest #mountDirectory)
  1094.                 (newname (cat #CDDevice_NC "3.info"))
  1095.                 (help "\n\nThis will copy over an icon for the mountlist file.")
  1096.                 (confirm)
  1097.             )
  1098.  
  1099.         (if (or #isPioneer #isNakamichi)
  1100.             ((textfile
  1101.                 (dest (cat #mountDirectory #CDDevice_NC "4") )
  1102.                 (append "/************************************************************************/\n"
  1103.                           "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  1104.                           "/************************************************************************/\n")
  1105.                 (append "    Device         = " #SCSIDevice "\n" )
  1106.                 (append "    Unit           = 4" #SCSIUnit "\n" )
  1107.                 (append "    Buffers        = 0\n")
  1108.                 (append "    BufMemType     = 5\n" )
  1109.                 (append "    Mask           = 0xffffffe\n" )
  1110.                 (append "    Flags          = 0\n" )
  1111.                 (append "    FileSystem     = l:AsimCDFS\n")
  1112.                 (append "    DosType        = 0x662dabac\n")
  1113.                 (append "    GlobVec        = -1\n")
  1114.                 (append "    Reserved       = 0\n")
  1115.                 (append "    LowCyl         = 0\n")
  1116.                 (append "    HighCyl        = 999\n")
  1117.                 (append "    Mount          = 1\n")
  1118.                 (append "    Surfaces       = 1\n")
  1119.                 (append "    BlocksPerTrack = 32\n")
  1120.                 (append "    Priority       = 10\n")
  1121.                 (append "    StackSize      = 5000\n")
  1122.             )
  1123.     
  1124.             (copyfiles
  1125.                     (prompt "\n\nCopying Mountlist icon")
  1126.                     (source "AsimCDFSInst:Storage/DOSDrivers/CD0.info")
  1127.                     (dest #mountDirectory)
  1128.                     (newname (cat #CDDevice_NC "4.info"))
  1129.                     (help "\n\nThis will copy over an icon for the mountlist file.")
  1130.                     (confirm)
  1131.                 )
  1132.     
  1133.             (textfile
  1134.                 (dest (cat #mountDirectory #CDDevice_NC "5") )
  1135.                 (append "/************************************************************************/\n"
  1136.                           "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  1137.                           "/************************************************************************/\n")
  1138.                 (append "    Device         = " #SCSIDevice "\n" )
  1139.                 (append "    Unit           = 5" #SCSIUnit "\n" )
  1140.                 (append "    Buffers        = 0\n")
  1141.                 (append "    BufMemType     = 5\n" )
  1142.                 (append "    Mask           = 0xffffffe\n" )
  1143.                 (append "    Flags          = 0\n" )
  1144.                 (append "    FileSystem     = l:AsimCDFS\n")
  1145.                 (append "    DosType        = 0x662dabac\n")
  1146.                 (append "    GlobVec        = -1\n")
  1147.                 (append "    Reserved       = 0\n")
  1148.                 (append "    LowCyl         = 0\n")
  1149.                 (append "    HighCyl        = 999\n")
  1150.                 (append "    Mount          = 1\n")
  1151.                 (append "    Surfaces       = 1\n")
  1152.                 (append "    BlocksPerTrack = 32\n")
  1153.                 (append "    Priority       = 10\n")
  1154.                 (append "    StackSize      = 5000\n")
  1155.             )
  1156.             (copyfiles
  1157.                     (prompt "\n\nCopying Mountlist icon")
  1158.                     (source "AsimCDFSInst:Storage/DOSDrivers/CD0.info")
  1159.                     (dest #mountDirectory)
  1160.                     (newname (cat #CDDevice_NC "5.info"))
  1161.                     (help "\n\nThis will copy over an icon for the mountlist file.")
  1162.                     (confirm)
  1163.                 )
  1164.     
  1165.             (if #isNakamichi
  1166.                 ((textfile
  1167.                     (dest (cat #mountDirectory #CDDevice_NC "6") )
  1168.                     (append "/************************************************************************/\n"
  1169.                               "/*  AsimCDFS v3 MountList entry -- ©1993-1995 Asimware Innovations Inc. */\n"
  1170.                               "/************************************************************************/\n")
  1171.                     (append "    Device         = " #SCSIDevice "\n" )
  1172.                     (append "    Unit           = 6" #SCSIUnit "\n" )
  1173.                     (append "    Buffers        = 0\n")
  1174.                     (append "    BufMemType     = 5\n" )
  1175.                     (append "    Mask           = 0xffffffe\n" )
  1176.                     (append "    Flags          = 0\n" )
  1177.                     (append "    FileSystem     = l:AsimCDFS\n")
  1178.                     (append "    DosType        = 0x662dabac\n")
  1179.                     (append "    GlobVec        = -1\n")
  1180.                     (append "    Reserved       = 0\n")
  1181.                     (append "    LowCyl         = 0\n")
  1182.                     (append "    HighCyl        = 999\n")
  1183.                     (append "    Mount          = 1\n")
  1184.                     (append "    Surfaces       = 1\n")
  1185.                     (append "    BlocksPerTrack = 32\n")
  1186.                     (append "    Priority       = 10\n")
  1187.                     (append "    StackSize      = 5000\n")
  1188.                 )
  1189.                 (copyfiles
  1190.                         (prompt "\n\nCopying Mountlist icon")
  1191.                         (source "AsimCDFSInst:Storage/DOSDrivers/CD0.info")
  1192.                         (dest #mountDirectory)
  1193.                         (newname (cat #CDDevice_NC "6.info"))
  1194.                         (help "\n\nThis will copy over an icon for the mountlist file.")
  1195.                         (confirm)
  1196.                 ))
  1197.             ))
  1198.         )
  1199.     ))
  1200.  
  1201.  
  1202.     (protect "S:User-Startup" "rwed" )
  1203.     (protect "S:Startup-Sequence" "rwed" )
  1204.  
  1205.     (if (not #autoMount)
  1206.         (startup "AsimCDFS"
  1207.             (command (cat "assign AsimCDFS: \"" #tunesDir "\"\n"))
  1208.             (command (cat "assign AsimCDFS_Buffer: \"" #bufferDir "\"\n"))
  1209.             (prompt "Inserting Assign command into the startup-sequence")
  1210.             (help "\n\nThe command assign AsimCDFS: and assign AsimCDFS_Buffer are being entered into your s:user-startup file.")
  1211.             )
  1212.         )
  1213.  
  1214.  
  1215.  
  1216.     (if #autoMount
  1217.         ((if #isPioneer
  1218.             (set #mountCommand6 (cat "\nmount >NIL: " #CDDevice_NC "4:\n" "mount >NIL: " #CDDevice_NC "5:\n") )
  1219.             )
  1220.         (if #isNakamichi
  1221.             (set #mountCommand6 (cat "\nmount >NIL: " #CDDevice_NC "4:\n" "mount >NIL: " #CDDevice_NC "5:\n" "mount >NIL: " #CDDevice_NC "6:\n") )
  1222.             )
  1223.         (if #is4X4
  1224.             (set #mountCommand6 "\n")
  1225.             )
  1226.  
  1227.  
  1228.         (if #PioneerSeparate
  1229.             (startup "AsimCDFS"
  1230.                 (command #echotxt)
  1231.                 (command (cat "assign AsimCDFS: \"" #tunesDir "\"\n"))
  1232.                 (command (cat "assign AsimCDFS_Buffer: \"" #bufferDir "\"\n"))
  1233.                 (command (cat "mount >NIL: " #CDDevice_NC "0:\n") )
  1234.                 (command (cat "mount >NIL: " #CDDevice_NC "1:\n") )
  1235.                 (command (cat "mount >NIL: " #CDDevice_NC "2:\n") )
  1236.                 (command (cat "mount >NIL: " #CDDevice_NC "3:") )
  1237.                 (command #mountCommand6 )
  1238.                 (prompt "Inserting Assign command into the startup-sequence")
  1239.                 (help "\n\nThe command assign AsimCDFS: and assign AsimCDFS_Buffer are being entered into your s:user-startup file.")
  1240.                 )
  1241.             )
  1242.             
  1243.         (if (not #PioneerSeparate)
  1244.             (startup "AsimCDFS"
  1245.                 (command #echotxt)
  1246.                 (command (cat "assign AsimCDFS: \"" #tunesDir "\"\n"))
  1247.                 (command (cat "assign AsimCDFS_Buffer: \"" #bufferDir "\"\n"))
  1248.                 (command (cat "mount >NIL: " #CDDevice "\n") )
  1249.                 (prompt "Inserting Assign command into the startup-sequence")
  1250.                 (help "\n\nThe command assign AsimCDFS: and assign AsimCDFS_Buffer are being entered into your s:user-startup file.")
  1251.                 )
  1252.             )            
  1253.         )
  1254.     )
  1255. ))
  1256.  
  1257.  
  1258. ;*****
  1259. ;  Delete old mountlists is DEVS:DosDrivers/
  1260. (if (> #wbversion 37) 
  1261.     ((if (not #PioneerSeparate)
  1262.         ((if (exists (cat "DEVS:DosDrivers/" #CDDevice_NC))
  1263.             ((delete (cat "DEVS:DosDrivers/" #CDDevice_NC)
  1264.             (prompt "\n\Deleting obsolete MountList file from DEVS:DosDrivers/\n" )
  1265.             (confirm)
  1266.             (help "\n\nThis will delete the obsolete MountList file from the DEVS:DosDrivers/ directory.  "
  1267.                     "MountList files for AsimCDFS v3.x are now put into the SYS:Storage/DOSDrivers directory.\n" )
  1268.                 )
  1269.  
  1270.             (delete (cat "DEVS:DosDrivers/" #CDDevice_NC ".info")
  1271.             (prompt "\n\Deleting obsolete MountList file from DEVS:DosDrivers/\n" )
  1272.             (confirm)
  1273.             (help "\n\nThis will delete the obsolete MountList file from the DEVS:DosDrivers/ directory.  "
  1274.                     "MountList files for AsimCDFS v3.x are now put into the SYS:Storage/DOSDrivers directory.\n" )
  1275.                 )
  1276.             )
  1277.         ))
  1278.     ))
  1279.  
  1280.     (if #PioneerSeparate
  1281.         ((set n 0)
  1282.         (while
  1283.             (set #oldml
  1284.                 (select n (cat "DEVS:DosDrivers/" #CDDevice_NC "0")
  1285.                              (cat "DEVS:DosDrivers/" #CDDevice_NC "1")
  1286.                              (cat "DEVS:DosDrivers/" #CDDevice_NC "2")
  1287.                              (cat "DEVS:DosDrivers/" #CDDevice_NC "3")
  1288.                              (cat "DEVS:DosDrivers/" #CDDevice_NC "4")
  1289.                              (cat "DEVS:DosDrivers/" #CDDevice_NC "5")
  1290.                              (cat "DEVS:DosDrivers/" #CDDevice_NC "6")
  1291.                            ""
  1292.                     )
  1293.                 )
  1294.                 
  1295.             
  1296.             ((if (exists #oldml)
  1297.                 ((delete #oldml
  1298.                 (prompt "\n\Deleting obsolete MountList file from DEVS:DosDrivers/\n" )
  1299.                 (confirm)
  1300.                 (help "\n\nThis will delete the obsolete MountList file from the DEVS:DosDrivers/ directory.  "
  1301.                         "MountList files for AsimCDFS v3.x are now put into the SYS:Storage/DOSDrivers directory.\n" )
  1302.                     )
  1303.  
  1304.  
  1305.                 (delete (cat #oldml ".info")
  1306.                 (prompt "\n\Deleting obsolete MountList file from DEVS:DosDrivers/\n" )
  1307.                 (confirm)
  1308.                 (help "\n\nThis will delete the obsolete MountList file from the DEVS:DosDrivers/ directory.  "
  1309.                         "MountList files for AsimCDFS v3.x are now put into the SYS:Storage/DOSDrivers directory.\n" )
  1310.                     )
  1311.                 )
  1312.             )        
  1313.  
  1314.             (set n (+ n 1)))
  1315.             )
  1316.         )
  1317. ))
  1318.  
  1319. ;*****
  1320. ;  Default prefs files
  1321. (if (or (= #IsAmiga #typeAMIGA) (= #IsAmiga #typeFLYER))
  1322.     ((if (or #isNakamichi #isPioneer)
  1323.         ;*****
  1324.         ;  Default prefs file for a Pioneer drive, separate
  1325.         ((if #PioneerSeparate
  1326.             ((copyfiles
  1327.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1328.                 (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  1329.                 (dest "ENVArc:AsimCDFS")
  1330.                 (newname (cat #CDDevice_NC "0"))
  1331.                 (help "\n\nThis will copy over a default preferences file.")
  1332.                 (confirm)
  1333.             )
  1334.     
  1335.             (copyfiles
  1336.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1337.                 (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  1338.                 (dest "ENVArc:AsimCDFS")
  1339.                 (newname (cat #CDDevice_NC "1"))
  1340.                 (help "\n\nThis will copy over a default preferences file.")
  1341.                 (confirm)
  1342.             )
  1343.     
  1344.             (copyfiles
  1345.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1346.                 (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  1347.                 (dest "ENVArc:AsimCDFS")
  1348.                 (newname (cat #CDDevice_NC "2"))
  1349.                 (help "\n\nThis will copy over a default preferences file.")
  1350.                 (confirm)
  1351.             )
  1352.     
  1353.             (copyfiles
  1354.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1355.                 (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  1356.                 (dest "ENVArc:AsimCDFS")
  1357.                 (newname (cat #CDDevice_NC "3"))
  1358.                 (help "\n\nThis will copy over a default preferences file.")
  1359.                 (confirm)
  1360.             )
  1361.     
  1362.             (copyfiles
  1363.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1364.                 (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  1365.                 (dest "ENVArc:AsimCDFS")
  1366.                 (newname (cat #CDDevice_NC "4"))
  1367.                 (help "\n\nThis will copy over a default preferences file.")
  1368.                 (confirm)
  1369.             )
  1370.     
  1371.             (copyfiles
  1372.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1373.                 (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  1374.                 (dest "ENVArc:AsimCDFS")
  1375.                 (newname (cat #CDDevice_NC "5"))
  1376.                 (help "\n\nThis will copy over a default preferences file.")
  1377.                 (confirm)
  1378.             )
  1379.  
  1380.             (if #isNakamichi
  1381.                 (copyfiles
  1382.                     (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1383.                     (source "AsimCDFSInst:Default_Prefs/Pioneer_Separate")
  1384.                     (dest "ENVArc:AsimCDFS")
  1385.                     (newname (cat #CDDevice_NC "6"))
  1386.                     (help "\n\nThis will copy over a default preferences file.")
  1387.                     (confirm)
  1388.                 ))
  1389.             )
  1390.         )
  1391.             
  1392.         ;*****
  1393.         ;  Default prefs file for a Pioneer drive, pooled
  1394.         (if (not #PioneerSeparate)
  1395.             (
  1396.             (if #isPioneer
  1397.                 (copyfiles
  1398.                     (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1399.                     (source "AsimCDFSInst:Default_Prefs/Pioneer_Pool")
  1400.                     (dest "ENVArc:AsimCDFS")
  1401.                     (newname #CDDevice_NC)
  1402.                     (help "\n\nThis will copy over a default preferences file.")
  1403.                     (confirm)
  1404.                 ))
  1405.                 
  1406.             (if #IsNakamichi
  1407.                 (copyfiles
  1408.                     (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1409.                     (source "AsimCDFSInst:Default_Prefs/Nakamichi_Pool")
  1410.                     (dest "ENVArc:AsimCDFS")
  1411.                     (newname #CDDevice_NC)
  1412.                     (help "\n\nThis will copy over a default preferences file.")
  1413.                     (confirm)
  1414.                 ))
  1415.             )
  1416.         )        
  1417.     ))
  1418.     
  1419.     
  1420.     ;*****
  1421.     ;  Default prefs file for a SCSI CD-ROM drive
  1422.     (if (and (not #isNakamichi) (not #isPioneer))
  1423.         (copyfiles
  1424.             (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1425.             (source "AsimCDFSInst:Default_Prefs/Default")
  1426.             (dest "ENVArc:AsimCDFS")
  1427.             (newname #CDDevice_NC)
  1428.             (help "\n\nThis will copy over a default preferences file.")
  1429.             (confirm)
  1430.         )
  1431.     ))
  1432. )
  1433.  
  1434.  
  1435.  
  1436.  
  1437. ;*****
  1438. ;  Default prefs file for an ATAPI CD-ROM drive
  1439. (if (= #IsAmiga #typeATAPI)
  1440.     (
  1441.     (if (not #is4X4)        
  1442.         (copyfiles
  1443.             (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1444.             (source "AsimCDFSInst:Default_Prefs/ATAPI")
  1445.             (dest "ENVArc:AsimCDFS")
  1446.             (newname #CDDevice_NC)
  1447.             (help "\n\nThis will copy over a default preferences file.")
  1448.             (confirm)
  1449.         )
  1450.     )
  1451.  
  1452.     (if #is4X4
  1453.         ((if #PioneerSeparate
  1454.             ((copyfiles
  1455.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1456.                 (source "AsimCDFSInst:Default_Prefs/4X4_Separate")
  1457.                 (dest "ENVArc:AsimCDFS")
  1458.                 (newname (cat #CDDevice_NC "0"))
  1459.                 (help "\n\nThis will copy over a default preferences file.")
  1460.                 (confirm)
  1461.             )
  1462.     
  1463.             (copyfiles
  1464.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1465.                 (source "AsimCDFSInst:Default_Prefs/4X4_Separate")
  1466.                 (dest "ENVArc:AsimCDFS")
  1467.                 (newname (cat #CDDevice_NC "1"))
  1468.                 (help "\n\nThis will copy over a default preferences file.")
  1469.                 (confirm)
  1470.             )
  1471.     
  1472.             (copyfiles
  1473.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1474.                 (source "AsimCDFSInst:Default_Prefs/4X4_Separate")
  1475.                 (dest "ENVArc:AsimCDFS")
  1476.                 (newname (cat #CDDevice_NC "2"))
  1477.                 (help "\n\nThis will copy over a default preferences file.")
  1478.                 (confirm)
  1479.             )
  1480.     
  1481.             (copyfiles
  1482.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1483.                 (source "AsimCDFSInst:Default_Prefs/4X4_Separate")
  1484.                 (dest "ENVArc:AsimCDFS")
  1485.                 (newname (cat #CDDevice_NC "3"))
  1486.                 (help "\n\nThis will copy over a default preferences file.")
  1487.                 (confirm)
  1488.             )
  1489.             )
  1490.         )
  1491.  
  1492.         (if (not #PioneerSeparate)
  1493.             (copyfiles
  1494.                 (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1495.                 (source "AsimCDFSInst:Default_Prefs/4X4_Pooled")
  1496.                 (dest "ENVArc:AsimCDFS")
  1497.                 (newname #CDDevice_NC)
  1498.                 (help "\n\nThis will copy over a default preferences file.")
  1499.                 (confirm)
  1500.             )
  1501.         ))
  1502.     )
  1503.     )
  1504. )
  1505.  
  1506.  
  1507. ;*****
  1508. ;  Default prefs file for a CDTV
  1509. (if (= #IsAmiga #typeCDTV)
  1510.     (copyfiles
  1511.         (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1512.         (source "AsimCDFSInst:Default_Prefs/CDTV")
  1513.         (dest "ENVArc:AsimCDFS")
  1514.         (newname #CDDevice_NC)
  1515.         (help "\n\nThis will copy over a default preferences file.")
  1516.         (confirm)
  1517.     )
  1518. )
  1519.  
  1520.  
  1521. ;*****
  1522. ;  Default prefs file for a CD³²
  1523. (if (= #IsAmiga #typeCD32)
  1524.     (copyfiles
  1525.         (prompt "\n\nCopying default preferences file to the ENVArc:AsimCDFS directory.\n" )
  1526.         (source "AsimCDFSInst:Default_Prefs/CD³²")
  1527.         (dest "ENVArc:AsimCDFS")
  1528.         (newname #CDDevice_NC)
  1529.         (help "\n\nThis will copy over a default preferences file.")
  1530.         (confirm)
  1531.     )
  1532. )
  1533.  
  1534. (complete 28)
  1535.  
  1536.  
  1537.  
  1538. ;*****
  1539. ;  AsimTunes
  1540. (set #instTunes
  1541.     (askbool
  1542.         (prompt "\n\nShould the AsimTunes utility be installed?")
  1543.         (help "\n\nThis will copy over the AsimTunes utility "
  1544.                 "to your AsimCDFS: directory\n\nIf you do not "
  1545.                 "wish the AsimTunes program to be transferred to your system, "
  1546.                 "skip this step.\n" )
  1547.         (default 1)
  1548.     )
  1549. )
  1550.  
  1551. (if #instTunes 
  1552.     ((protect "AsimCDFS:AsimTunes" "rwed" )
  1553.     (protect "AsimCDFS:AsimTunes.info" "rwed" )
  1554.     (copyfiles
  1555.         (prompt "\n\nCopying AsimTunes audio CD controller program to the "
  1556.                   "AsimCDFS: directory.\n" )
  1557.         (source "AsimCDFSInst:AsimTunes")
  1558.         (dest "AsimCDFS:")
  1559.         (infos)
  1560.         (noposition)
  1561.         (help "\n\nThis will copy over the AsimTunes audio CD controller "
  1562.                 "program to your AsimCDFS: directory\n\nIf you do not "
  1563.                 "wish the AsimTunes program to be transferred to your system, "
  1564.                 "skip this step.\n" )
  1565.         (confirm)
  1566.     )
  1567.     
  1568.     (tooltype
  1569.         (dest "AsimCDFS:AsimTunes" )
  1570.         (settooltype "CDROM" #CDDevice )
  1571.         (noposition)
  1572.     )
  1573.         
  1574.         
  1575.     (complete 31)
  1576.     (protect "fonts:AsimTunes2" "rwed" )
  1577.     (protect "fonts:AsimTunes2.font" "rwed" )
  1578.     (protect "fonts:AsimTunes2/11" "rwed" )
  1579.     (protect "fonts:AsimTunes2/20" "rwed" )
  1580.     (copyfiles
  1581.         (prompt "\n\nCopying AsimTunes fonts to the FONTS: directory\n" )
  1582.         (source "AsimCDFSInst:fonts")
  1583.         (dest "fonts:" )
  1584.         (all)
  1585.         (help "\n\nThis will copy over the fonts needed for AsimTunes.\n\n"
  1586.                 "They will be placed into your fonts: directory.\n\n" )
  1587.         (confirm) )
  1588. ))
  1589.  
  1590.  
  1591.  
  1592. ;*****
  1593. ;  DiscChanger
  1594. (complete 34)
  1595.  
  1596. (set #instChanger
  1597.     (askbool
  1598.         (prompt "\n\nShould the DiscChanger utility be installed?")
  1599.         (help "\n\nThis will copy over the DiscChanger utility "
  1600.                 "to your AsimCDFS: directory\n\nIf you do not "
  1601.                 "wish the DiscChanger program to be transferred to your system, "
  1602.                 "skip this step.\n" )
  1603.         (default 1)
  1604.     )
  1605. )
  1606.  
  1607. (complete 37)
  1608. (if #instChanger
  1609.     ((protect "AsimCDFS:DiscChanger" "rwed" )
  1610.     (copyfiles
  1611.         (prompt "\n\nCopying the DiscChanger utility to the AsimCDFS: "
  1612.                   "directory.\n" )
  1613.         (source "AsimCDFSInst:DiscChanger")
  1614.         (dest "AsimCDFS:")
  1615.         (infos)
  1616.         (noposition)
  1617.         (help "\n\nThis will copy over the DiscChanger utility "
  1618.                 "program to your AsimCDFS: directory\n\nIf you do not "
  1619.                 "wish the DiscChanger program to be transferred to your system, "
  1620.                 "skip this step.\n" )
  1621.         (confirm)
  1622.     )
  1623.     
  1624.     (tooltype
  1625.         (dest "AsimCDFS:DiscChanger" )
  1626.         (settooltype "CDROM" #CDDevice )
  1627.         (noposition)
  1628.     )
  1629. ))
  1630.  
  1631.  
  1632.  
  1633. ;*****
  1634. ;  PDFormat
  1635. (complete 38)
  1636.  
  1637. (if (= #isPDCD 1)
  1638.     (
  1639.     (set #instPDFormat
  1640.         (askbool
  1641.             (prompt "\n\nShould the PD_Format utility be installed?")
  1642.             (help "\n\nThis will copy over the PD_Format utility "
  1643.                     "to your AsimCDFS: directory\n\nIf you do not "
  1644.                     "wish the PD_Format program to be transferred to your system, "
  1645.                     "skip this step.\n" )
  1646.             (default 1)
  1647.         )
  1648.     )
  1649.  
  1650.     (complete 39)
  1651.     (if #instPDFormat
  1652.         ((protect "AsimCDFS:PD_Format" "rwed" )
  1653.         (copyfiles
  1654.             (prompt "\n\nCopying the PD_Format utility to the AsimCDFS: "
  1655.                       "directory.\n" )
  1656.             (source "AsimCDFSInst:PD_Format")
  1657.             (dest "AsimCDFS:")
  1658.             (infos)
  1659.             (noposition)
  1660.             (help "\n\nThis will copy over the PD_Format utility "
  1661.                     "program to your AsimCDFS: directory\n\nIf you do not "
  1662.                     "wish the PD_Format  program to be transferred to your system, "
  1663.                     "skip this step.\n" )
  1664.             (confirm)
  1665.         )
  1666.         
  1667.         (tooltype
  1668.             (dest "AsimCDFS:PD_Format" )
  1669.             (noposition)
  1670.         )
  1671.     ))
  1672. ))
  1673.  
  1674.  
  1675.  
  1676. ;*****
  1677. ;  AsimCDFS_Prefs
  1678. (complete 40)
  1679. (set #instPrefs
  1680.     (askbool
  1681.         (prompt "\n\nShould the AsimCDFS_Prefs utility be installed?")
  1682.         (help "\n\nThis will copy over the AsimCDFS_Prefs utility "
  1683.                 "to your AsimCDFS: directory\n\nIf you do not "
  1684.                 "wish the AsimCDFS_Prefs program to be transferred to your system, "
  1685.                 "skip this step.\n" )
  1686.         (default 1)
  1687.     )
  1688. )
  1689.  
  1690. (complete 43)
  1691. (if #instPrefs
  1692.     ((protect "AsimCDFS:AsimCDFS_Prefs" "rwed" )
  1693.     (copyfiles
  1694.         (prompt "\n\nCopying the AsimCDFS_Prefs utility to the AsimCDFS: "
  1695.                   "directory.\n" )
  1696.         (source "AsimCDFSInst:AsimCDFS_Prefs")
  1697.         (dest "AsimCDFS:")
  1698.         (infos)
  1699.         (noposition)
  1700.         (help "\n\nThis will copy over the AsimCDFS_Prefs utility "
  1701.                 "program to your AsimCDFS: directory\n\nIf you do not "
  1702.                 "wish the AsimCDFS_Prefs program to be transferred to your system, "
  1703.                 "skip this step.\n" )
  1704.         (confirm)
  1705.     )
  1706. ))
  1707.  
  1708.  
  1709.  
  1710.  
  1711. ;*****
  1712. ;  SimBoot
  1713. (complete 46)
  1714. (set #instSimBoot
  1715.     (askbool
  1716.         (prompt "\n\nShould the SimBoot utility be installed?")
  1717.         (help "\n\nThis will copy over the SimBoot utility "
  1718.                 "to your AsimCDFS: directory\n\nIf you do not "
  1719.                 "wish the SimBoot program to be transferred to your system, "
  1720.                 "skip this step.\n" )
  1721.         (default 1)
  1722.     )
  1723. )
  1724.  
  1725. (complete 50)
  1726. (if #instSimBoot
  1727.     ((protect "AsimCDFS:SimBoot" "rwed" )
  1728.     (copyfiles
  1729.         (prompt "\n\nCopying the SimBoot utility to the AsimCDFS: "
  1730.                   "directory.\n" )
  1731.         (source "AsimCDFSInst:SimBoot")
  1732.         (dest "AsimCDFS:")
  1733.         (infos)
  1734.         (noposition)
  1735.         (help "\n\nThis will copy over the SimBoot utility "
  1736.                 "program to your AsimCDFS: directory\n\nIf you do not "
  1737.                 "wish the SimBoot program to be transferred to your system, "
  1738.                 "skip this step.\n" )
  1739.         (confirm)
  1740.     )
  1741.  
  1742. ))
  1743.  
  1744.  
  1745. ;*****
  1746. ;  CD³²_Prefs
  1747. (complete 53)
  1748. (set #instCD32Prefs
  1749.     (askbool
  1750.         (prompt "\n\nShould the CD³²_Prefs utility be installed?")
  1751.         (help "\n\nThis will copy over the CD³²_Prefs utility "
  1752.                 "to your AsimCDFS: directory\n\nIf you do not "
  1753.                 "wish the CD³²_Prefs program to be transferred to your system, "
  1754.                 "skip this step.\n" )
  1755.         (default 1)
  1756.     )
  1757. )
  1758.  
  1759. (complete 56)
  1760. (if #instCD32Prefs
  1761.     ((protect "AsimCDFS:CD³²_Prefs" "rwed" )
  1762.     (copyfiles
  1763.         (prompt "\n\nCopying the CD³²_Prefs utility to the AsimCDFS: "
  1764.                   "directory.\n" )
  1765.         (source "AsimCDFSInst:CD³²_Prefs")
  1766.         (dest "AsimCDFS:")
  1767.         (infos)
  1768.         (noposition)
  1769.         (help "\n\nThis will copy over the CD³²_Prefs utility "
  1770.                 "program to your AsimCDFS: directory\n\nIf you do not "
  1771.                 "wish the CD³²_Prefs program to be transferred to your system, "
  1772.                 "skip this step.\n" )
  1773.         (confirm)
  1774.     )
  1775.  
  1776. ))
  1777.  
  1778.  
  1779.  
  1780. ;*****
  1781. ;  CDTV Prefs
  1782. (complete 59)
  1783. (set #instCDTVPrefs
  1784.     (askbool
  1785.         (prompt "\n\nShould the CDTV_Prefs utility be installed?")
  1786.         (help "\n\nThis will copy over the CDTV_Prefs utility "
  1787.                 "to your AsimCDFS: directory\n\nIf you do not "
  1788.                 "wish the CDTV_Prefs program to be transferred to your system, "
  1789.                 "skip this step.\n" )
  1790.         (default 1)
  1791.     )
  1792. )
  1793.  
  1794. (complete 62)
  1795. (if #instCDTVPrefs
  1796.     ((protect "AsimCDFS:CDTV_Prefs" "rwed" )
  1797.     (copyfiles
  1798.         (prompt "\n\nCopying the CDTV_Prefs utility to the AsimCDFS: "
  1799.                   "directory.\n" )
  1800.         (source "AsimCDFSInst:CDTV_Prefs")
  1801.         (dest "AsimCDFS:")
  1802.         (infos)
  1803.         (noposition)
  1804.         (help "\n\nThis will copy over the CDTV_Prefs utility "
  1805.                 "program to your AsimCDFS: directory\n\nIf you do not "
  1806.                 "wish the CDTV_Prefs program to be transferred to your system, "
  1807.                 "skip this step.\n" )
  1808.         (confirm)
  1809.     )
  1810.  
  1811. ))
  1812.  
  1813.  
  1814.  
  1815. (complete 65)
  1816. (set #instCDTVEmul
  1817.     (askbool
  1818.         (prompt "\n\nShould the CDTV emulation option be installed?")
  1819.         (help "\n\nThis will copy over the required files for the "
  1820.                 "CDTV emulation:\n   devs:cdtv.device\n   devs:bookmark.device\n   devs:cardmark.device\n   libs:playerprefs.library\n\nIf you do not "
  1821.                 "wish the CDTV emulation option to be transferred to your system, "
  1822.                 "skip this step.\n" )
  1823.         (default 1)
  1824.     )
  1825. )
  1826.  
  1827. (complete 68)
  1828. (if #instCDTVEmul
  1829.     ((complete 71)
  1830.     ;********************
  1831.     ;  devs:cdtv.device
  1832.     (protect "devs:cdtv.device" "rwed" )
  1833.     (copyfiles
  1834.         (prompt "\n\nCopying cdtv.device to the devs: directory.\n" )
  1835.         (source "AsimCDFSInst:devs/cdtv.device")
  1836.         (dest "devs:")
  1837.         (confirm)
  1838.         (help "\n\nThis will copy over the cdtv.device program to your "
  1839.             "devs: directory\n\nThis is part of the CDTV emulation\n" )
  1840.     )
  1841.     
  1842.     
  1843.     
  1844.     ;*****
  1845.     ;  devs:bookmark.device
  1846.     (complete 75)
  1847.     (protect "devs:bookmark.device" "rwed" )
  1848.     (copyfiles
  1849.         (prompt "\n\nCopying bookmark.device to the devs: directory.\n" )
  1850.         (source "AsimCDFSInst:devs/bookmark.device")
  1851.         (dest "devs:")
  1852.         (confirm)
  1853.         (help "\n\nThis will copy over the bookmark.device program to your "
  1854.             "devs: directory\n\nThis is part of the CDTV emulation\n" )
  1855.     )
  1856.     
  1857.     
  1858.     ;*****
  1859.     ;  devs:cardmark.device
  1860.     (complete 78)
  1861.     (protect "devs:cardmark.device" "rwed" )
  1862.     (copyfiles
  1863.         (prompt "\n\nCopying cardmark.device to the devs: directory.\n" )
  1864.         (source "AsimCDFSInst:devs/cardmark.device")
  1865.         (dest "devs:")
  1866.         (confirm)
  1867.         (help "\n\nThis will copy over the cardmark.device program to your "
  1868.             "devs: directory\n\nThis is part of the CDTV emulation\n" )
  1869.     )
  1870.     
  1871.     
  1872.     ;*****
  1873.     ;  libs:playerprefs.library
  1874.     (complete 81)
  1875.     (protect "devs:playerprefs.library" "rwed" )
  1876.     (copyfiles
  1877.         (prompt "\n\nCopying playerprefs.library to the libs: directory.\n" )
  1878.         (source "AsimCDFSInst:libs/playerprefs.library")
  1879.         (dest "libs:")
  1880.         (confirm)
  1881.         (help "\n\nThis will copy over the playerprefs.library program to your "
  1882.             "libs: directory\n\nThis is part of the CDTV emulation\n" )
  1883.     )
  1884. ))    
  1885.  
  1886.  
  1887.  
  1888. (set #instCD32Emul
  1889.     (askbool
  1890.         (prompt "\n\nShould the CD³² emulation option be installed?")
  1891.         (help "\n\nThis will copy over the required files for the "
  1892.                 "CD³² emulation:\n   devs:cd.device\n   libs:nonvolatile.library\n   libs:lowlevel.library\n\nIf you do not "
  1893.                 "wish the CD³² emulation option to be transferred to your system, "
  1894.                 "skip this step.\n" )
  1895.         (default 1)
  1896.     )
  1897. )
  1898.  
  1899. (complete 84)
  1900. (if #instCD32Emul
  1901.     ((complete 87)
  1902.     ;*****
  1903.     ;  devs:cd.device
  1904.     
  1905.     (protect "devs:cd.device" "rwed" )
  1906.     (copyfiles
  1907.         (prompt "\n\nCopying cd.device to the devs: directory.\n" )
  1908.         (source "AsimCDFSInst:devs/cd.device")
  1909.         (dest "devs:")
  1910.         (confirm)
  1911.         (help "\n\nThis will copy over the cd.device program to your "
  1912.             "devs: directory\n\nThis is part of the CD³² emulation\n" )
  1913.     )
  1914.     
  1915.     
  1916.     ;*****
  1917.     ;  libs:nonvolatile.library
  1918.     (complete 90)
  1919.     (protect "devs:nonvolatile.library" "rwed" )
  1920.     (copyfiles
  1921.         (prompt "\n\nCopying nonvolatile.library to the libs: directory.\n" )
  1922.         (source "AsimCDFSInst:libs/nonvolatile.library")
  1923.         (dest "libs:")
  1924.         (confirm)
  1925.         (help "\n\nThis will copy over the nonvolatile.library program to your "
  1926.             "libs: directory\n\nThis is part of the CD³² emulation\n" )
  1927.     )
  1928.     
  1929.     
  1930.     ;*****
  1931.     ;  libs:lowlevel.library
  1932.     (complete 93)
  1933.     (protect "devs:lowlevel.library" "rwed" )
  1934.     (copyfiles
  1935.         (prompt "\n\nCopying lowlevel.library to the libs: directory.\n" )
  1936.         (source "AsimCDFSInst:libs/lowlevel.library")
  1937.         (dest "libs:")
  1938.         (confirm)
  1939.         (help "\n\nThis will copy over the lowlevel.library program to your "
  1940.             "libs: directory\n\nThis is part of the CD³² emulation\n" )
  1941.     )
  1942. ))
  1943.  
  1944.  
  1945.  
  1946. ;*****
  1947. ;  default icons in ENV
  1948.  
  1949. (makedir "ENVARC:AsimCDFS"
  1950.     (prompt "Making the ENVARC:AsimCDFS directory, in which various default files will be placed.")
  1951.     (help "This will create a directory in your ENVARC: directory")
  1952.     )
  1953.  
  1954. (makedir "ENV:AsimCDFS"
  1955.     (prompt "Making the ENV:AsimCDFS directory, in which various default files will be placed.")
  1956.     (help "This will create a directory in your ENV: directory")
  1957.     )
  1958.  
  1959. (copyfiles
  1960.     (prompt "\n\nCopying default icons to the ENVARC:AsimCDFS "
  1961.               "directory.\n" )
  1962.     (source "AsimCDFSInst:ENVArc/AsimCDFS")
  1963.     (dest "ENVArc:AsimCDFS")
  1964.     (infos)
  1965.     (all)
  1966.     (help "\n\nThis will copy over default icon files to the ENVArc:AsimCDFS directory.")
  1967.     (confirm)
  1968. )
  1969.  
  1970. (copyfiles
  1971.     (prompt "\n\nCopying default icons to the ENV:AsimCDFS "
  1972.               "directory.\n" )
  1973.     (source "AsimCDFSInst:ENVArc/AsimCDFS")
  1974.     (dest "ENV:AsimCDFS")
  1975.     (infos)
  1976.     (all)
  1977.     (help "\n\nThis will copy over default icon files to the ENV:AsimCDFS directory.")
  1978.     (confirm)
  1979. )
  1980.  
  1981.  
  1982.  
  1983.  
  1984. ;*****
  1985. ;  ask which languages to be added
  1986. (if (exists "LOCALE:" (noreq))
  1987.     ((user 2)
  1988.     (set #language
  1989.         (askoptions
  1990.             (prompt "Which alternate language catalogs would you like installed?")
  1991.             (help "The various programs have been configured to the following "
  1992.                     "alternate languages:\n    Français, Italiano\n\nSelect which"
  1993.                     "languages you would like to use with our software.  English "
  1994.                     "language support is automatically provided as standard within the software." )
  1995.             (choices "Français" "Italiano" "Deutsch" )
  1996.             (default 1)
  1997.         )
  1998.     )
  1999.     (user #theirlevel)
  2000.     
  2001.     
  2002.     (set n 0)
  2003.     (while
  2004.         (set #langdir
  2005.             (select n "français"
  2006.                        "italiano"
  2007.                        "deutsch"
  2008.                        ""
  2009.                 )
  2010.             )
  2011.         (
  2012.         
  2013.         (if (IN #language n)
  2014.             ((set #langdest (tackon "LOCALE:catalogs/" #langdir))
  2015.             (set #langsrc (tackon "AsimCDFSInst:catalogs/" #langdir))
  2016.             
  2017.             (copyfiles
  2018.                 (prompt "\n\nCopying locale " #langdir " language catalogs.\n" )
  2019.                 (source #langsrc)
  2020.                 (dest #langdest)
  2021.                 (infos)
  2022.                 (all)
  2023.                 (help "\n\nThis will copy over the desired langauge file.")
  2024.                 (confirm))
  2025.             )
  2026.         )
  2027.     
  2028.         (set n (+ n 1))
  2029.         )
  2030.     )
  2031. ))    
  2032.  
  2033.  
  2034.     
  2035.  
  2036.  
  2037.  
  2038.  
  2039. ;*****
  2040. ;  Create a 'SYS/NV_Location' environment variable
  2041. (run "setenv SYS/NV_Location AsimCDFS_Buffer:NonVolatile/")
  2042.  
  2043.  
  2044. ;*****
  2045. ;  Create a CD³² Preferences file
  2046. (run "AsimCDFS:CD³²_Prefs SAVE DEFAULT")    
  2047.  
  2048.  
  2049. ;*****
  2050. ;  Create a CDTV Preferences file
  2051. (run "AsimCDFS:CDTV_Prefs SAVE DEFAULT")    
  2052.  
  2053.  
  2054. ;*****
  2055. ;  Tell NewTek Flyer users where the CD-ROM drive is located
  2056. (if (= #IsAmiga #typeFLYER) 
  2057.     (
  2058.     (user 2)
  2059.     (message (cat "NewTek Flyer users\n"
  2060.        "------------------\n"
  2061.         "Your CD-ROM drive will not be automatically started upon bootup.\n\n"
  2062.         "To manually start your CD-ROM drive, you must double-click on the "
  2063.         "CD6 icon located in the Storage/DOSDrivers directory on your " 
  2064.         "Workbench partition.\n\n"
  2065.         "You may wish to leave out the CD6 icon on your Workbench screen "
  2066.         "using the \"Leave Out\" menu item in Workbench."  )
  2067.     )
  2068.     
  2069.     (user #theirlevel)
  2070.     )
  2071. )
  2072.  
  2073.  
  2074.  
  2075. ;*****
  2076. ;  Tell About Extended icons
  2077. (user 2)
  2078. (message (cat "NewIcons and MagicWB users\n"
  2079.     "--------------------------------\n"
  2080.     "NewIcons and MagicWB icons are now available for "
  2081.     "the utilities in AsimCDFS.  Due to space limitations, however, we "
  2082.     "are unable to include these on the install disk.\n\n" 
  2083.     "This set of extended icons may be found on our WWW site at "
  2084.     "http://www.asimware.com, on our BBS or on the Aminet archive." )
  2085. )
  2086. (user #theirlevel)
  2087.  
  2088.  
  2089. ;*****
  2090. ;  remove assign to AsimCDFSInst
  2091. (makeassign "AsimCDFSInst")
  2092. (makeassign "AsimCDFS")
  2093. (makeassign "AsimCDFS_Buffer")
  2094.  
  2095.  
  2096. (complete 100)
  2097.